Public Class frmAbout
    Inherits System.Windows.Forms.Form

    Public Sub StartSysInfo()
        Dim SysInfo As String = Environment.GetFolderPath(Environment.SpecialFolder.System) & "\MSINFO32.EXE"
        If My.Computer.FileSystem.FileExists(SysInfo) Then
            Shell(SysInfo)
        Else
            Throw New IO.FileNotFoundException("File not found.", SysInfo)
        End If
    End Sub

    Private Sub btnSysInfo_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSysInfo.Click
        StartSysInfo()
    End Sub

    Private Sub frmAbout_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "About WRDB"
        Dim Ver As String
        'this doesn't work if loading WRDB as DLL
        'Ver = Application.ProductVersion 
        Ver = System.Reflection.Assembly.GetExecutingAssembly.GetName.Version.ToString

        Me.lblVersion.Text = String.Format("Version: {0}; Build Date: {1:g}", Ver, System.IO.File.GetLastWriteTime(Me.GetType().Assembly.Location))
        Me.lblTitle.Text = "Water Resources Database"
        Me.lblDescription.Text = "This program was developed to create, edit and manage WRDB databases. WRDB provides a means to import data in a variety of formats, manage historical field data and modeling data, and display selected data in tabular reports, graphs and maps."
        Me.lblDisclaimer.Text = "Note: this version has been carefully checked for computational accuracy. However, the developer assumes no responsibility or liability for the application of this computer program."
    End Sub

End Class

